home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_85-04_1985_Verlag_Heinz_Weise_de.d64 / .K O N T A K T E (.txt) next >
Commodore BASIC  |  2023-02-26  |  20KB  |  122 lines
  1. 1000 poke50258,64:poke50255,peek(50255)+1
  2. 1030 poke50257,20:rem status uebergeben
  3. 1040 :
  4. 1060 printchr$(142);chr$(8):si=54272
  5. 1080 poke53280,12:poke53281,12:print"[147]";
  6. 1100 print"                                       [146]
  7. 1120 [153]"for              kontaktecke              wait
  8. 1140 print"[129]                                       [146]"
  9. 1180 print"
  10. 1200 :
  11. 1220 [153]"   (NULL)lenlenlenlenright$
  12. 1260 print"  [213][179]    [171][195][195][195][195][195][195][195][201]
  13. 1270 [153]"  peekpeek    peek       peek
  14. 1280 print"  [194][171][201]  [213][179][213][195][195][195][195][195][201][194]      [207][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  15. 1300 print"  [194][194][194]  [194][194] [144][166][166][166][166][166] [194]      [165]           [158]  [146][167][208] ";
  16. 1320 print"  [194][194][194]  [194][194] [144][166][166][166][166][166] [194]      [165]           [158]  [146][167][170][208]";
  17. 1340 print"  [194][194][194]  [194][194]       [194]      [165]             [167][170][170]";
  18. 1360 print"  [194][194][194]  [194][194]  [144]123[146]  [194]      [165]     [144]'''' '''[167][170][170]";
  19. 1380 print"  [194][194][194]  [194][194]  [144]456[146]  [194]     [160][165][144]:::: ''''' ''[167][170][170]";
  20. 1400 print"  [194][194][194][160][160][194][194]  [144]789[146]  [194]      [165][144]:::: '' '''''[167][170][170]";
  21. 1420 print"  [194][194][194]  [194][194]  [144]*0#[146]  [194]      [204][175][175][175][175][175][175][175][175][175][175][175][175][175][186][170][170]";
  22. 1430 print"  [194][171][203]  [202][179]     [144]/ [194]       [204][175][175][175][175][175][175][175][175][175][175][175][175][175][186][170]";
  23. 1435 print"  [194][194]    [194] [144] [209] [209]  [194]        [204][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
  24. 1440 print"  [202][179]    [171][195][195][195][195][195][195][195][203]
  25. 1460 [153]"   mid$lenlenlenlen(NULL)
  26. 1480 print
  27. 1500 :
  28. 1520 print"[149]
  29. 1540 [153]"stopmit einer ueberraschung am ende "
  30. 1560 [153]
  31. 1600 [141]7000
  32. 1610 x1$[178]"tastewait druecken!on"
  33. 1620 x2$[178]"taste drueckenwait!on"
  34. 1630 [153]x1$:r[178]1
  35. 1640 [161]r$:[139]r$[179][177]""[167]1680
  36. 1650 r[178]r[170]1:[139]r[178]40[167][153]x2$
  37. 1660 [139]r[178]80[167]r[178]1:[153]x1$
  38. 1670 [137]1640
  39. 1680 [143]
  40. 2000 [143] seite 1
  41. 2002 [151]53280,7 :[151]53281,7 :[153][199](14);[199](8);"load";
  42. 2004 [153]"stoportantantantantan^asc(NULL)(NULL)(NULL)(NULL)(NULL) 1541 chr$val(NULL)(NULL)lenleft$(NULL)!$$$$$$$$$$$$$";
  43. 2006 [153]"stop(NULL) tan(NULL)tan (NULL)peekright$val(NULL)val asc(NULL)val(NULL) valright$(NULL)val chr$(NULL)(NULL) chr$val(NULL)asc(NULL)valchr$(NULL)val (NULL)(NULL)str$";
  44. 2008 [153]"stop/tantantantantanexp(NULL)(NULL)(NULL)val(NULL)(NULL)(NULL)val(NULL)(NULL)(NULL)val asc(NULL)(NULL)(NULL)(NULL)(NULL) 1541 500str$(NULL)!!!";
  45. 2010 [153]"stop*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!*!";
  46. 2012 [153]"stop(NULL)atn(NULL)ascval atn(NULL)lenleft$ peek(NULL)vallenleft$val(NULL) (NULL).peekright$(NULL)(NULL)right$chr$str$(NULL)(NULL)len(NULL)val(NULL) asc(NULL)val(NULL)"
  47. 2014 [153]"stopc64 spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(*(NULL)val(NULL).06105/74464 *spc(";
  48. 2016 [153]"stopatn(NULL)chr$valpeek(NULL)(NULL)val atn(NULL)spc(spc(spc(spc(spc(>spc(spc(spc(spc(*(NULL)atn(NULL)(NULL)(NULL)(NULL) peekright$val(NULL)valascval(NULL)str$*spc(";
  49. 2018 [153]"stopvon 15-20(NULL)hr meistens*(NULL)atn(NULL)(NULL)atn(NULL)right$val(NULL)(NULL)valchr$ 16spc(*spc(";
  50. 2019 [153]"stopoder von 8-12 (NULL)hrspc(spc(spc(**6082 (NULL)atn(NULL)(NULL)str$(NULL)(NULL)ascspc(spc(spc(**";
  51. 2020 [153]"":z[178]13:[141]9999
  52. 2022 [153]"left$andbuch stopfuer left$acker und andere ascreaks"
  53. 2024 [153]"valinfuehrung in die (NULL)raxis der str$atenfern-";
  54. 2026 [153]"verarbeitung mit left$omecomputern."
  55. 2028 [153]"peekezug: (NULL)athmann-(NULL)challa  (NULL)reis: 38,-str$(NULL)"
  56. 2030 [153]"           *  *  *  *  *"
  57. 2032 [153]"   stopright$mmer an interessanter (NULL)oftware"
  58. 2034 [153]"stop     fuer den len 64 interessiert."
  59. 2036 [153]"     (NULL)ichard (NULL)uetz, atnnkerstr. 40,"
  60. 2038 [153]"    5102 (NULL)uerselen, (NULL)el.02405/91476
  61. 2050 t1$="[215]enn/[201]hre lodernde [195]omputer-[194]egeisterung/juengst/zur flammenden"
  62. 2055 t2$="[160][204]eidenschaft/wurde/und/das [199]anze/garantiert/nicht als [211]trohfeuer/"
  63. 2060 t3$="endet/haben [211]ie/vermutlich/vor kurzem/aus purer [206]eugier/c't gelesen"
  64. 2062 t4$=""
  65. 2065 t$=t1$+t2$+t3$+t4$:gosub9600
  66. 2067 gosub8888
  67. 5000 rem seite 5
  68. 5002 poke53280,7 :poke53281,7 :printchr$(14);"[147]"
  69. 5004 print"[200]ier [144]koennte auch [201]hre [203]leinanzeige"
  70. 5006 print"stehen.":print:print
  71. 5007 print"           *  *  *  *  *"
  72. 5008 print"[215]enn [144][211]ie [203]ontakte[160]suchen, [200]ardware oder"
  73. 5010 print"[211]oftware anbieten wollen oder suchen,"
  74. 5012 print"dann teilen [211]ie uns den [212]ext [201]hrer"
  75. 5014 print"[203]leinanzeige bitte schriftlich mit.":z=13:gosub9999
  76. 5022 print"[211]ie [144]koennen fuer [201]hre [203]ontaktanzeige"
  77. 5024 print"alle [218]eichen des [160][195]64  verwenden, die"
  78. 4898 print"ueber den '[199]ross-[203]leinschrift-[205]odus'"
  79. 5028 print"erreichbar sind!!"
  80. 5030 print"           *  *  *  *  *"
  81. 5032 print"[194]itte [144]beachten [211]ie, dass fuer [213]mlaute"
  82. 5034 print"zwei [218]eichen benoetigt werden."
  83. 5050 t1$="[211]ie koennen entweder eine [193]nzeige mit 4 oder mit 9 [218]eilen aufgeben."
  84. 5055 t2$=""
  85. 5060 t3$="[160][196]ie folgenden [208]reise gelten nur fuer private [203]ontaktanzeigen:"
  86. 5062 t4$="[160]4 [218]eilen 10[196][205] / 9 [218]eilen 20[196][205]"
  87. 5065 t$=t1$+t2$+t3$+t4$:gosub9600
  88. 5099 gosub8888
  89. 5100 goto20000
  90. 5530 print"           *  *  *  *  *"
  91. 6995 end
  92. 6996 :
  93. 6997 rem unterprogramme
  94. 6998 :
  95. 6999 rem klingeln
  96. 7000 pokesi+24,15:fori=0to2:pokesi,40 :pokesi+1,234
  97. 7020 pokesi+7,130:pokesi+8,110:pokesi+14,20:pokesi+15,117
  98. 7040 pokesi+6,240:pokesi+13,240:pokesi+20,240:fort=0to500:nextt
  99. 7055 forj=0to20:pokesi+4,33:pokesi+11,33:pokesi+18,17
  100. 7057 pokesi+4,32:pokesi+11,32:pokesi+18,16:nextj:nexti:pokesi+24,0:return
  101. 7599 :
  102. 8886 :
  103. 8887 rem
  104. 8888 z=24:s=0:gosub9999:print"[144]   [212]aste druecken!   [146]";
  105. 8889 fort=0to200:nextt
  106. 8890 getg$:ifg$=""then8890
  107. 8896 gosub9999:print"               ";:return
  108. 9599 rem fliessDO
  109. 9600 z=10:s=2:gosub9999:print"[144][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  110. 9602 z=11:s=2:gosub9999:print"[144]                                   "
  111. 9603 z=12:s=2:gosub9999:print"[144][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  112. 9604 t$="                               "+t$:poke198,0
  113. 9606 fori=1tolen(t$)-28:z=11:s=5:gosub9999
  114. 9607 getr$:ifr$<>""thenreturn
  115. 9608 print"[144]";mid$(t$,i,29):forz=0to40:nextz,i:return
  116. 9997 :
  117. 9998 rem cursor setzen
  118. 9999 poke214,z:poke211,s:sys58640:print"";:return
  119. 20000 poke53271,0:poke53277,0
  120. 20100 sys19048:sys18544
  121. 20110 sys50283
  122.